VERSION 5.00
Object = "{B3FB64BF-91F9-11D7-A482-0008A14158BC}#2.22#0"; "ITGControls.ocx"
Begin VB.Form frmSetupProduct 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   8160
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   9420
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   8160
   ScaleWidth      =   9420
   ShowInTaskbar   =   0   'False
   Begin VB.CheckBox chkVal01 
      BackColor       =   &H00F7D9C2&
      Caption         =   "Check1"
      Height          =   195
      Left            =   960
      TabIndex        =   48
      Top             =   7320
      Width           =   195
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00F7D9C2&
      Height          =   8055
      Left            =   120
      TabIndex        =   0
      Top             =   15
      Width           =   9255
      Begin VB.TextBox txtDefaultWH 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   5745
         TabIndex        =   80
         Top             =   2730
         Width           =   1455
      End
      Begin VB.CheckBox chkVis07 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Check1"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   5700
         TabIndex        =   78
         Top             =   4815
         Width           =   195
      End
      Begin VB.CheckBox chkVis06 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Check1"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   5700
         TabIndex        =   76
         Top             =   4560
         Width           =   195
      End
      Begin VB.CheckBox chkVis05 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Check1"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   5700
         TabIndex        =   74
         Top             =   4335
         Width           =   195
      End
      Begin VB.CheckBox chkVis04 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Check1"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   5700
         TabIndex        =   72
         Top             =   4095
         Width           =   195
      End
      Begin VB.ComboBox cboRole 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   6840
         Style           =   2  'Dropdown List
         TabIndex        =   69
         Top             =   840
         Width           =   2055
      End
      Begin VB.CheckBox chkSec05 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Check1"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   5640
         TabIndex        =   67
         Top             =   555
         Width           =   195
      End
      Begin VB.CheckBox chkMan08 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Check1"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   5760
         TabIndex        =   65
         Top             =   3525
         Width           =   195
      End
      Begin VB.CheckBox chkMan07 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Check1"
         Height          =   195
         Left            =   840
         TabIndex        =   63
         Top             =   3600
         Width           =   195
      End
      Begin VB.CheckBox chkMan06 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Check1"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   5760
         TabIndex        =   61
         Top             =   3285
         Width           =   195
      End
      Begin VB.TextBox txtLabel 
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   2100
         TabIndex        =   59
         Text            =   "Part Number"
         Top             =   3255
         Width           =   1455
      End
      Begin VB.CheckBox chkMan05 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Check1"
         Height          =   195
         Left            =   840
         TabIndex        =   57
         Top             =   3045
         Width           =   195
      End
      Begin VB.CheckBox chkVis03 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Check1"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   840
         TabIndex        =   55
         Top             =   4560
         Width           =   195
      End
      Begin VB.CheckBox chkVis02 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Check1"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   840
         TabIndex        =   53
         Top             =   4320
         Width           =   195
      End
      Begin VB.CheckBox chkVis01 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Check1"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   840
         TabIndex        =   51
         Top             =   4080
         Width           =   195
      End
      Begin VB.Frame Frame6 
         BackColor       =   &H00F7D9C2&
         Height          =   75
         Left            =   960
         TabIndex        =   49
         Top             =   3900
         Width           =   8055
      End
      Begin VB.Frame Frame2 
         BackColor       =   &H00F7D9C2&
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   75
         Left            =   960
         TabIndex        =   45
         Top             =   7140
         Width           =   8055
      End
      Begin VB.Frame Frame3 
         BackColor       =   &H00F7D9C2&
         Height          =   75
         Left            =   960
         TabIndex        =   22
         Top             =   1620
         Width           =   8055
      End
      Begin VB.CheckBox Check8 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Check1"
         Height          =   195
         Left            =   840
         TabIndex        =   21
         Top             =   1860
         Width           =   195
      End
      Begin VB.CheckBox Check9 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Check1"
         Height          =   195
         Left            =   840
         TabIndex        =   20
         Top             =   2100
         Width           =   195
      End
      Begin VB.CheckBox Check10 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Check1"
         Height          =   195
         Left            =   840
         TabIndex        =   19
         Top             =   2340
         Width           =   195
      End
      Begin VB.CheckBox Check11 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Check1"
         Height          =   195
         Left            =   840
         TabIndex        =   18
         Top             =   2580
         Width           =   195
      End
      Begin VB.Frame Frame4 
         BackColor       =   &H00F7D9C2&
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   75
         Left            =   960
         TabIndex        =   17
         Top             =   5040
         Width           =   8055
      End
      Begin VB.TextBox txtGroup1 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   1440
         TabIndex        =   16
         Top             =   5340
         Width           =   2355
      End
      Begin VB.TextBox txtGroup2 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   1440
         TabIndex        =   15
         Top             =   5640
         Width           =   2355
      End
      Begin VB.TextBox txtGroup3 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   1440
         TabIndex        =   14
         Top             =   5940
         Width           =   2355
      End
      Begin VB.TextBox txtGroup4 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   1440
         TabIndex        =   13
         Top             =   6240
         Width           =   2355
      End
      Begin VB.TextBox txtGroup5 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   1440
         TabIndex        =   12
         Top             =   6540
         Width           =   2355
      End
      Begin VB.TextBox txtGroup6 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   5700
         TabIndex        =   11
         Top             =   5340
         Width           =   2355
      End
      Begin VB.TextBox txtGroup7 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   5700
         TabIndex        =   10
         Top             =   5640
         Width           =   2355
      End
      Begin VB.TextBox txtGroup8 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   5700
         TabIndex        =   9
         Top             =   5940
         Width           =   2355
      End
      Begin VB.TextBox txtGroup9 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   5700
         TabIndex        =   8
         Top             =   6240
         Width           =   2355
      End
      Begin VB.TextBox txtGroup10 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   5700
         TabIndex        =   7
         Top             =   6540
         Width           =   2355
      End
      Begin VB.TextBox txtDefaultUnit 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   5745
         TabIndex        =   6
         Top             =   2100
         Width           =   1455
      End
      Begin VB.CheckBox chkSec04 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Check1"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   840
         TabIndex        =   5
         Top             =   1260
         Width           =   195
      End
      Begin VB.CheckBox chkSec03 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Check1"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   840
         TabIndex        =   4
         Top             =   1020
         Width           =   195
      End
      Begin VB.CheckBox chkSec02 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Check1"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   840
         TabIndex        =   3
         Top             =   780
         Width           =   195
      End
      Begin VB.CheckBox chkSec01 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Check1"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   840
         TabIndex        =   2
         Top             =   540
         Width           =   195
      End
      Begin VB.Frame Frame5 
         BackColor       =   &H00F7D9C2&
         Height          =   75
         Left            =   840
         TabIndex        =   1
         Top             =   300
         Width           =   8235
      End
      Begin ITGControls.ITGTextBox txtRole 
         Height          =   285
         Left            =   6840
         TabIndex        =   71
         Top             =   840
         Width           =   1140
         _ExtentX        =   1905
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14745599
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Mandatory       =   -1  'True
         Label           =   "Requisition No."
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   0
         TextBoxWidth    =   1080
         Required        =   -1  'True
      End
      Begin VB.Label Label39 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Default Item Warehouse"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   5760
         TabIndex        =   81
         Top             =   2490
         Width           =   2895
      End
      Begin VB.Label Label38 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Disable Amount Approved field (PR)"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   6000
         TabIndex        =   79
         Top             =   4815
         Width           =   2895
      End
      Begin VB.Label Label37 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Disable Consumed field (PR)"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   6000
         TabIndex        =   77
         Top             =   4560
         Width           =   2895
      End
      Begin VB.Label Label36 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Disable Balance field (PR)"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   6000
         TabIndex        =   75
         Top             =   4335
         Width           =   2895
      End
      Begin VB.Label Label35 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Disable Last Ordered field (PR)"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   6000
         TabIndex        =   73
         Top             =   4095
         Width           =   2895
      End
      Begin VB.Label Label34 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Select Role"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   5940
         TabIndex        =   70
         Top             =   885
         Width           =   2895
      End
      Begin VB.Label Label33 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Access all units for Supply Maintenance"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   5940
         TabIndex        =   68
         Top             =   555
         Width           =   2895
      End
      Begin VB.Label Label32 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Use Customer Product ID"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   6060
         TabIndex        =   66
         Top             =   3525
         Width           =   2895
      End
      Begin VB.Label lblUsePartNo 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Use Part Number in Computing Product Balance"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   1140
         TabIndex        =   64
         Top             =   3600
         Width           =   3015
      End
      Begin VB.Label Label9 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Affect Factor when computing Price"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   6060
         TabIndex        =   62
         Top             =   3285
         Width           =   2895
      End
      Begin VB.Label Label8 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Label/Name"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   1125
         TabIndex        =   60
         Top             =   3330
         Width           =   1095
      End
      Begin VB.Label Label7 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Use Barcodes/Barcoding"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   1140
         TabIndex        =   58
         Top             =   3045
         Width           =   3015
      End
      Begin VB.Label Label6 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Hide Member Price"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   1140
         TabIndex        =   56
         Top             =   4560
         Width           =   2895
      End
      Begin VB.Label Label5 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Disable 'Cust Item No' tab"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   1140
         TabIndex        =   54
         Top             =   4320
         Width           =   2895
      End
      Begin VB.Label Label4 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Disable 'Supplier' tab"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   1140
         TabIndex        =   52
         Top             =   4080
         Width           =   2895
      End
      Begin VB.Label Label3 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Visibility"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   120
         TabIndex        =   50
         Top             =   3840
         Width           =   1215
      End
      Begin VB.Label Label2 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Allow duplication of Product ID"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   1200
         TabIndex        =   47
         Top             =   7320
         Width           =   2895
      End
      Begin VB.Label Label1 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Validation"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   120
         TabIndex        =   46
         Top             =   7080
         Width           =   1215
      End
      Begin VB.Label Label10 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Mandatory"
         Height          =   315
         Left            =   120
         TabIndex        =   44
         Top             =   1560
         Width           =   1215
      End
      Begin VB.Label Label11 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Always use average cost"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   1140
         TabIndex        =   43
         Top             =   1860
         Width           =   2895
      End
      Begin VB.Label Label12 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Don't check for Batch or Serial #"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   1140
         TabIndex        =   42
         Top             =   2100
         Width           =   2895
      End
      Begin VB.Label Label13 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Use Default warehouse only"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   1140
         TabIndex        =   41
         Top             =   2340
         Width           =   2895
      End
      Begin VB.Label Label14 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Ask for substitute if Item is ""out-of-stock"""
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   1140
         TabIndex        =   40
         Top             =   2580
         Width           =   3015
      End
      Begin VB.Label Label15 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Category"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   120
         TabIndex        =   39
         Top             =   4980
         Width           =   1215
      End
      Begin VB.Label Label16 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Group 1"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   720
         TabIndex        =   38
         Top             =   5340
         Width           =   855
      End
      Begin VB.Label Label17 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Group 2"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   720
         TabIndex        =   37
         Top             =   5655
         Width           =   855
      End
      Begin VB.Label Label18 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Group 3"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   720
         TabIndex        =   36
         Top             =   5940
         Width           =   855
      End
      Begin VB.Label Label19 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Group 4"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   720
         TabIndex        =   35
         Top             =   6240
         Width           =   855
      End
      Begin VB.Label Label20 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Group 5"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   720
         TabIndex        =   34
         Top             =   6585
         Width           =   855
      End
      Begin VB.Label Label21 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Group 6"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   4980
         TabIndex        =   33
         Top             =   5340
         Width           =   855
      End
      Begin VB.Label Label22 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Group 7"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   4980
         TabIndex        =   32
         Top             =   5640
         Width           =   855
      End
      Begin VB.Label Label23 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Group 8"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   4980
         TabIndex        =   31
         Top             =   5940
         Width           =   855
      End
      Begin VB.Label Label24 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Group 9"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   4980
         TabIndex        =   30
         Top             =   6240
         Width           =   855
      End
      Begin VB.Label Label25 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Group 10"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   4980
         TabIndex        =   29
         Top             =   6585
         Width           =   855
      End
      Begin VB.Label Label26 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Default Unit of Measurement:"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   5760
         TabIndex        =   28
         Top             =   1860
         Width           =   2895
      End
      Begin VB.Label Label27 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Verify Modification of Budget"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   1140
         TabIndex        =   27
         Top             =   1260
         Width           =   2895
      End
      Begin VB.Label Label28 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Verify Modification of Product Division"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   1140
         TabIndex        =   26
         Top             =   1020
         Width           =   2895
      End
      Begin VB.Label Label29 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Verify Modification of Product Type"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   1140
         TabIndex        =   25
         Top             =   780
         Width           =   2895
      End
      Begin VB.Label Label30 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Verify Modification of Costing Type"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   1140
         TabIndex        =   24
         Top             =   540
         Width           =   2895
      End
      Begin VB.Label Label31 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Security"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   180
         TabIndex        =   23
         Top             =   240
         Width           =   1215
      End
   End
End
Attribute VB_Name = "frmSetupProduct"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Recordset variables
Private WithEvents rsHeader As ADODB.Recordset
Attribute rsHeader.VB_VarHelpID = -1

Public sBit As String

'Security Acess Level variables
Public lACNew As Boolean
Public lACEdit As Boolean
Public lACDelete As Boolean
Public lACPost As Boolean
Public lACCancel As Boolean
Public lACPrint As Boolean

Sub SetDataValue()
    
    Me.chkSec01.Value = GetValue("ITM_VER_COST", 3)
    Me.chkSec02.Value = GetValue("ITM_VER_TYPE", 3)
    Me.chkSec03.Value = GetValue("ITM_VER_DIVISION", 3)
    Me.chkSec04.Value = GetValue("ITM_VER_BUDGET", 3)
    Me.chkSec05.Value = GetValue("ITM_VER_ALLSPLYREQ", 3)

    txtRole = GetValue("ITM_VER_ALLSPLYREQ", 4)

    txtGroup1.Text = GetValue("ITM_CAT_GRP1", 4)
    txtGroup2.Text = GetValue("ITM_CAT_GRP2", 4)
    txtGroup3.Text = GetValue("ITM_CAT_GRP3", 4)
    txtGroup4.Text = GetValue("ITM_CAT_GRP4", 4)
    txtGroup5.Text = GetValue("ITM_CAT_GRP5", 4)
    txtGroup6.Text = GetValue("ITM_CAT_GRP6", 4)
    txtGroup7.Text = GetValue("ITM_CAT_GRP7", 4)
    txtGroup8.Text = GetValue("ITM_CAT_GRP8", 4)
    txtGroup9.Text = GetValue("ITM_CAT_GRP9", 4)
    txtGroup10.Text = GetValue("ITM_CAT_GRPA", 4)
    
    txtDefaultUnit.Text = GetValue("ITM_DEF_UOM", 4)
    txtDefaultWH.Text = GetValue("ITM_DEF_WH", 4)
    
    chkVal01.Value = GetValue("ITM_VAL_DUPLICATE", 3)
    
    chkVis01.Value = GetValue("ITM_VIS_SUPPLIER", 3)
    chkVis02.Value = GetValue("ITM_VIS_CUSTITEMNO", 3)
    chkVis03.Value = GetValue("ITM_VIS_MEMPRICE", 3)
    chkVis04.Value = GetValue("ITM_VIS_LASTORDERED", 3)
    chkVis05.Value = GetValue("ITM_VIS_BALANCE", 3)
    chkVis06.Value = GetValue("ITM_VIS_CONSUMED", 3)
    chkVis07.Value = GetValue("ITM_VIS_QTYAPPROVED", 3)
    
    chkMan05.Value = GetValue("ITM_MAN_BARCODE", 3)
    txtLabel.Text = GetValue("ITM_MAN_BARCODE", 4)
    chkMan06.Value = GetValue("ITM_MAN_FACTOR", 3)
    chkMan07.Value = GetValue("ITM_MAN_USEPARTNO", 3)
    chkMan08.Value = GetValue("ITM_MAN_USECUSTITEMNO", 3)
End Sub

Sub SaveChanges()
Set rs = Nothing
Set rs = New ADODB.Recordset
rs.Open "select datepart(yy,getdate()) as dDate", cn, adOpenKeyset, adLockReadOnly

    SetValue "ITM_VER_COST", 3, chkSec01.Value
    SetValue "ITM_VER_TYPE", 3, chkSec02.Value
    SetValue "ITM_VER_DIVISION", 3, chkSec03.Value
    SetValue "ITM_VER_BUDGET", 3, chkSec04.Value
    SetValue "ITM_VER_ALLSPLYREQ", 3, chkSec05.Value
    
    SetValue "ITM_VER_ALLSPLYREQ", 4, txtRole.Text
    
    SetValue "ITM_CAT_GRP1", 4, txtGroup1.Text
    SetValue "ITM_CAT_GRP2", 4, txtGroup2.Text
    SetValue "ITM_CAT_GRP3", 4, txtGroup3.Text
    SetValue "ITM_CAT_GRP4", 4, txtGroup4.Text
    SetValue "ITM_CAT_GRP5", 4, txtGroup5.Text
    SetValue "ITM_CAT_GRP6", 4, txtGroup6.Text
    SetValue "ITM_CAT_GRP7", 4, txtGroup7.Text
    SetValue "ITM_CAT_GRP8", 4, txtGroup8.Text
    SetValue "ITM_CAT_GRP9", 4, txtGroup9.Text
    SetValue "ITM_CAT_GRPA", 4, txtGroup10.Text
    
    SetValue "ITM_DEF_UOM", 4, txtDefaultUnit.Text
    SetValue "ITM_DEF_WH", 4, txtDefaultWH.Text

    SetValue "ITM_VAL_DUPLICATE", 3, chkVal01.Value
    
    SetValue "ITM_VIS_SUPPLIER", 3, chkVis01.Value
    SetValue "ITM_VIS_CUSTITEMNO", 3, chkVis02.Value
    SetValue "ITM_VIS_MEMPRICE", 3, chkVis03.Value
    SetValue "ITM_VIS_LASTORDERED", 3, chkVis04.Value
    SetValue "ITM_VIS_BALANCE", 3, chkVis05.Value
    SetValue "ITM_VIS_CONSUMED", 3, chkVis06.Value
    SetValue "ITM_VIS_QTYAPPROVED", 3, chkVis07.Value
   
   SetValue "ITM_MAN_BARCODE", 3, chkMan05.Value
   SetValue "ITM_MAN_BARCODE", 4, txtLabel.Text
   SetValue "ITM_MAN_FACTOR", 3, chkMan06.Value
   SetValue "ITM_MAN_USEPARTNO", 3, chkMan07.Value
   SetValue "ITM_MAN_USECUSTITEMNO", 3, chkMan08.Value
   
     cn.BeginTrans
        rsHeader.UpdateBatch adAffectAll
    cn.CommitTrans
    MsgBox "Record/s successfully saved.", vbInformation, "ComUnion"
    Set rs = Nothing

End Sub
 
 'Close active window
Public Sub TBCloseWindow()
    Unload Me
End Sub

Private Sub cboRole_Click()
    txtRole = Trim(cboRole)
End Sub

Private Sub cboRole_KeyPress(KeyAscii As Integer)
    SendKeysTab KeyAscii
End Sub

Private Sub chkMan05_Click()
    If chkMan05.Value = 1 Then
        txtLabel.Text = "Barcode ID"
        txtLabel.Enabled = False
    Else
        txtLabel.Text = "Part Number"
        txtLabel.Enabled = True
        txtLabel.SetFocus
    End If
End Sub

Private Sub chkSec05_Click()
    If chkSec05.Value = 0 Then
        cboRole.Enabled = False
    Else
        cboRole.Enabled = True
    End If
End Sub

Private Sub chkVis02_Click()
    chkMan08.Value = chkVis02.Value
End Sub

Private Sub Form_Activate()
    TBBitReload
End Sub

Private Sub Form_Load()
    Set FrmName = Me
    FormSetup
    
    AcessBit Me, GetValueFrTable("AccessLevel", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' AND [Module] = 'SS05'")
    
    Call LoadComboValues(cboRole, "RoleID", "Sec_Role")
    
    Set rsHeader = New ADODB.Recordset
    
    If rsHeader.State <> adStateOpen Then
        OpenRecordset rsHeader, "*", "SYSTEM_OPTION"
        SetDataValue
    End If
    
    If chkMan05.Value = 1 Then
        txtLabel.Text = "Barcode ID"
        txtLabel.Enabled = False
    Else
        txtLabel.Text = "Part Number"
        txtLabel.Enabled = True
    End If
    
    TBBitReload
End Sub

Private Sub Form_Unload(Cancel As Integer)
    BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, , , , , , , , , , True
    
    
    
    
    Set rsHeader = Nothing
    
    Set frmSetupUtil = Nothing
    
    lCloseWindow = True
    CloseMenuTab ITGLedgerMain
    
End Sub

'Reload menu buttons (do not delete this sub)
Public Sub TBBitReload()
    Set FrmName = Me
    BitVisible ITGLedgerMain.tbrMain, True, True
    sBit = "0000000100001000"
    BitReload ITGLedgerMain, Me, ITGLedgerMain.tbrMain, sBit
End Sub

'Save all changes
Public Sub TBSave()
       SaveChanges
End Sub


Public Function GetValue(param1 As String, param2 As Integer)
On Error GoTo TheSource
    lBoolean = True
    If rsHeader.RecordCount = 0 Then Exit Function
    rsHeader.MoveFirst
    rsHeader.Find ("cCode='" & param1 & "'")
    If param2 = 3 Then
        GetValue = IIf(rsHeader.Fields(3), 1, 0)
    Else
        GetValue = IIf(rsHeader.Fields(4) = Null, "", rsHeader.Fields(4))
    End If
    lBoolean = False
TheSource:
    If lBoolean Then
        If param2 = 3 Then GetValue = False
        If param2 = 4 Then GetValue = ""
    End If
End Function


Sub SetValue(param1 As String, param2 As Integer, param3 As String)
On Error GoTo TheSource
  
    If rsHeader.RecordCount = 0 Then Exit Sub
    rsHeader.MoveFirst
    rsHeader.Find ("cCode='" & param1 & "'")
    If param2 = 3 Then
        rsHeader.Fields(3).Value = IIf(param3 = "0", 0, 1)
    Else
        rsHeader.Fields(4).Value = param3
    End If
TheSource:
    Exit Sub
End Sub

Private Sub txtLabel_Change()
    lblUsePartNo.Caption = "Use " & Trim(txtLabel) & " in Computing Product Balance"
End Sub

Private Sub txtRole_Change()
    If Trim(txtRole) <> "" Or txtRole <> vbNullString Then
        cboRole = Trim(txtRole)
    Else: cboRole.ListIndex = -1
    End If
End Sub

